home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / amos / sillysource3.lha / GRAFIX.AMOS / GRAFIX.amosSourceCode < prev    next >
AMOS Source Code  |  2007-01-30  |  9KB  |  188 lines
  1. Screen Open 3,320,200,16,Lowres : Hide On : Curs Off : Cls 3 : Screen To Back 3 : Screen Hide 3 : Fade 1 : Wait 30
  2. 20 Screen Open 1,320,200,16,Lowres : Cls 1 : Screen Hide 1 : Hide On : Flash Off : Curs Off 
  3. Get Rom Fonts : Set Font 1 : Break Off 
  4. 30 Dim ST(16) : Dim OP$(16) : OP$(1)="B_HEAD" : OP$(2)="O_HEAD"
  5. 31 OP$(3)="FACE" : OP$(4)="HAND" : OP$(5)="BODY" : OP$(6)="ANIMAL"
  6. 32 OP$(7)="COLOUR" : OP$(8)="PERSPEC" : OP$(9)="TEXT" : OP$(10)="DITH"
  7. 33 OP$(11)="ANIM1" : OP$(12)="ANIM2" : OP$(13)="ANIM3" : OP$(14)="ANIM4"
  8. 34 OP$(15)="LAND" : OP$(16)="MISCEL"
  9. 35 ENSC=0 : SCR=0 : DISK=0
  10. DR=Exist("HARDDRIVE") : If DR=True Then HD=1 Else Dir$="GRAFIX1:"
  11. 40 ST(1)=7 : ST(2)=8 : ST(3)=5 : ST(4)=5 : ST(5)=6 : ST(6)=11 : ST(7)=8 : ST(8)=9 : ST(9)=6 : ST(10)=4
  12. 41 ST(11)=7 : ST(12)=9 : ST(13)=5 : ST(14)=4 : ST(15)=4 : ST(16)=6
  13. 45 Fade 1 : Wait 30 : Unpack 90 To 3 : Unpack 90 To 1 : Wait 40 : Repeat : Until Mouse Key
  14. 46 Fade 1 : Wait 30 : Unpack 91 To 3 : Unpack 91 To 1 : Wait 200
  15. 47 Fade 1 : Wait 30 : Unpack 3 To 3 : Unpack 3 To 1 : Wait 10 : Track Loop On : Track Play 10 : Wait 40 : Repeat : Until Mouse Key : Track Stop : Fade 1 : Wait 30
  16. 50 Unpack 5 To 3 : Unpack 5 To 1 : Show On 
  17. 55 Reserve Zone 20 : Restore : Z=0
  18. 60 For X=1 To 20 : Inc Z : Read A,B,C,D : Set Zone Z,A,B To C,D : Next X
  19. Data 26,86,93,97,102,85,180,96,190,85,286,95,25,102,118,113,123
  20. Data 102,178,112,185,102,235,112,240,102,287,112,26,118,102,128,114,118
  21. Data 212,128,220,117,287,128,25,132,85,155,92,134,154,155,160,134,217,155
  22. Data 224,134,287,155,25,175,85,185,93,175,139,186
  23. 80 Data 114,159,197,169,146,175,174,184,180,175,250,186,258,175,288,186
  24. Reset Zone 19
  25. 100 Repeat : CH=Mouse Zone : Wait Vbl : Until Mouse Key=1 and CH<>0 : Hide On : POS=CH
  26. Reset Zone 
  27. 110 If CH=16 Then DEANO=1 Else DEANO=0
  28. 120 If CH=18 Then Goto 910
  29. 130 If CH=20 Then Hide On : Wait 10 : Fade 1 : Wait 30 : Screen Hide 1 : Screen Hide 3 : End 
  30. 134 DISK=0 : A$="" : F$=""
  31. 140 F$=OP$(CH)+".SCR"
  32. 150 If HD=0 Then Gosub CHECKDISK
  33. 195 If LO=0 or CH<>PCH Then LO=0 : Gosub SCRS
  34. 200 PCH=CH
  35. 220 If CH=11 Then AN=1 : Goto 250 Else AN=0
  36. 230 If CH=12 Then AN=2 : Goto 250 Else AN=0
  37. 240 If CH=14 Then AN=4 : Goto 250 Else AN=0
  38. 250 If CH=7 Then CO=1 Else CO=0
  39. 255 If CH=10 Then DITH=1 Else DITH=0
  40. 290 If AN=0 and LO=0 Then Erase 1 : Load "BUTTON.ABK",1
  41. 300 If AN=1 and LO=0 Then Erase 1 : Load "HEAD.ABK",1 : IM=12
  42. 310 If AN=2 and LO=0 Then Erase 1 : Load "WALKS.ABK",1 : IM=42
  43. 320 If AN=4 and SCR=23 Then Erase 1 : Load "HORSE.ABK",1 : IM=27
  44. 330 If AN=4 and SCR=24 Then Erase 1 : Load "CENTI.ABK",1 : IM=21
  45. 340 LO=1
  46. 465 If AN=0
  47. Unpack SCR To 3 : Screen 3 : Paste Bob 149,185,1
  48. If POS=16
  49. Paste Bob 0,186,2
  50. End If 
  51. Unpack SCR To 1 : Screen 1 : Paste Bob 149,185,1
  52. If POS=16
  53. Paste Bob 0,186,2
  54. End If 
  55. End If 
  56. If AN=0 and POS<>13 Then NUM=SCR-20 : A$=Str$(NUM) : Ink 4 : Text 65,196,A$
  57. 470 If AN>0 and AN<4 and DEANO=0 Then Unpack SCR To 3 : Screen 3 : Paste Bob 149,185,IM : Unpack SCR To 1 : Screen 1 : Paste Bob 149,185,IM : Double Buffer 
  58. 475 If AN=4 and DEANO=0 Then Unpack SCR To 3 : Screen 3 : Unpack SCR To 1 : Screen 1 : Double Buffer 
  59. 480 If AN=1 and SCR=27 Then Bob 1,64,190,11 : Bob 2,245,45,1
  60. 490 If AN=2 and SCR=24 Then Bob 1,64,190,41 : Bob 2,275,30,1
  61. 500 If AN=2 and SCR=26 Then Bob 1,64,190,41 : Bob 2,268,74,13
  62. 510 If AN=2 and SCR=29 Then Bob 1,64,190,41 : Bob 2,274,104,33 : Bob 3,275,104,21
  63. 520 If AN=4 and SCR=23
  64. Bob 1,64,190,30 : Bob 2,173,40,25 : Bob 3,223,66,1 : Bob 4,242,68,13
  65. End If 
  66. 530 If AN=4 and SCR=24
  67. Bob 1,64,190,22 : Bob 2,49,94,1 : Bob 3,66,137,5 : Bob 4,114,137,8
  68. Bob 5,161,137,11 : Bob 6,208,137,14 : Bob 7,256,117,18
  69. End If 
  70. 540 If AN=0
  71. Reserve Zone 5 : Set Zone 1,91,187 To 148,199
  72. Set Zone 2,148,186 To 225,199 : Set Zone 3,226,187 To 245,199
  73. Set Zone 4,299,186 To 319,199 : Set Zone 5,0,186 To 89,199
  74. End If 
  75. 550 If AN<>0
  76. Reserve Zone 5 : Set Zone 1,91,187 To 148,199
  77. Set Zone 2,148,186 To 225,199 : Set Zone 3,226,187 To 245,199
  78. Set Zone 4,299,186 To 319,199 : Set Zone 5,0,186 To 57,199
  79. End If 
  80. 560 Rem ----MAKE A CHOICE
  81. 570 Show On 
  82. 580 Repeat : CH=Mouse Zone : Wait Vbl : Until Mouse Key=1
  83. 590 If CH Then Hide On 
  84. 600 If CH=5 and AN=1 and SCR=27 Then Show On : Goto 770
  85. 610 If CH=5 and AN=2 and SCR=24 Then Show On : Goto 980
  86. 620 If CH=5 and AN=2 and SCR=26 Then Show On : Goto 1050
  87. 630 If CH=5 and AN=2 and SCR=29 Then Show On : Goto 1120
  88. 640 If CH=5 and AN=4 and SCR=23 Then Show On : Goto 1200
  89. 650 If CH=5 and AN=4 and SCR=24 Then Show On : Goto 1300
  90. 660 If CH=1 Then Hide On : Reset Zone : Goto 50
  91. If CH=2 Then Gosub SAVR : Goto 465
  92. 680 If CH=3 and SCR>21 Then Dec SCR : Bob Off : Reset Zone : Screen To Front 3 : Goto 320
  93. 690 If CH=4 and SCR<ENSC Then Inc SCR : Bob Off : Reset Zone : Screen To Front 3 : Goto 320
  94. If CH=5 and DEANO=1 Then Gosub SAVR : Goto 465
  95. 700 Rem ZOOM 
  96. 720 If Mouse Key=1 and Y Mouse<240 and CO=1 and SCR>=25 Then Gosub Z00M
  97. 730 If Mouse Key=1 and Y Mouse<240 and DITH=1 Then Gosub Z00M
  98. 760 Show On : Goto 560
  99. 770 Rem ANIMATE HEAD 
  100. 790 Bob 1,67,192,10 : Wait 30
  101. 795 M$="Anim 0,(1,40)(2,4)(3,4)(4,4)(5,30)(4,4)(3,4)(2,4)"
  102. 800 A$="(1,40)(6,4)(7,4)(8,4)(9,30)(8,4)(7,4)(6,4)"
  103. 810 M$=M$+A$ : Channel 2 To Bob 2 : Amal 2,M$ : Amal On 2
  104. 880 CH=Mouse Zone
  105. 890 If Mouse Key=1 and CH=5 Then Amal Off : Wait 30 : Goto 480
  106. 900 Goto 880
  107. 910 Rem INFO SCREEN
  108. 930 Unpack 14 To 3 : Unpack 14 To 1 : Screen To Front 3 : Show On 
  109. 940 Reserve Zone 2 : Set Zone 1,32,173 To 60,184 : Set Zone 2,253,173 To 281,184
  110. 950 Wait 20 : Repeat 
  111. 960 CH=Mouse Zone : Wait Vbl 
  112. 970 Until Mouse Key=1 and CH<>0 : Hide On : Goto 50
  113. 980 Rem ANIMATE SIDE WALK
  114. 1000 Bob 1,67,192,40 : Wait 10
  115. 1010 M$="Anim 0,(1,6)(2,6)(3,6)(4,4)(5,5)(6,6)(7,6)(8,6)(9,6)(10,4)(11,5)(12,6)"
  116. 1015 Channel 2 To Bob 2 : Amal 2,M$ : Amal On 
  117. 1020 CH=Mouse Zone
  118. 1030 If CH=5 and Mouse Key=1 Then Amal Off 2 : Wait 10 : Goto 480
  119. 1040 Goto 1020
  120. 1050 Rem ANIMATE FRONT WALK 
  121. 1070 Bob 1,67,192,40 : Wait 10
  122. 1080 M$="Anim 0,(13,8)(14,7)(15,9)(16,7)(17,7)(18,7)(19,9)(20,8)"
  123. 1085 Channel 2 To Bob 2 : Amal 2,M$ : Amal On 
  124. 1090 CH=Mouse Zone
  125. 1100 If CH=5 and Mouse Key=1 Then Amal Off 2 : Wait 10 : Goto 480
  126. 1110 Goto 1090
  127. 1120 Rem ANIMATE FULL MAN 
  128. 1140 Bob 1,67,192,40 : Wait 10
  129. 1150 M$="Anim 0,(33,6)(34,6)(35,6)(36,4)(37,5)(38,6)(39,6)(38,6)(37,4)(36,5)(35,6)(34,6)"
  130. 1160 M1$="Anim 0,(21,6)(22,6)(23,6)(24,4)(25,5)(26,6)(27,6)(28,6)(29,6)(30,4)(31,5)(32,6)"
  131. 1165 Channel 2 To Bob 2 : Channel 3 To Bob 3 : Amal 2,M$ : Amal 3,M1$ : Amal On 
  132. 1170 CH=Mouse Zone
  133. 1180 If CH=5 and Mouse Key=1 Then Amal Off : Wait 10 : Goto 480
  134. 1190 Goto 1170
  135. 1200 Rem ANIMATE HORSE
  136. 1220 Bob 1,67,192,29 : Wait 10
  137. 1221 M$="Anim 0,(25,6)(26,6)(27,6)(28,4)(27,5)(26,6)"
  138. 1222 M1$="Anim 0,(1,6)(2,6)(3,6)(4,4)(5,5)(6,6)(7,6)(8,6)(9,6)(10,4)(11,5)(12,6)"
  139. 1223 M2$="Anim 0,(13,6)(14,6)(15,6)(16,4)(17,5)(18,6)(19,6)(20,6)(21,6)(22,4)(23,5)(24,6)"
  140. Channel 2 To Bob 2 : Channel 3 To Bob 3 : Channel 4 To Bob 4
  141. Amal 2,M$ : Amal 3,M1$ : Amal 4,M2$ : Amal On 
  142. 1270 CH=Mouse Zone
  143. 1280 If CH=5 and Mouse Key=1 Then Amal Off : Wait 10 : Goto 480
  144. 1290 Goto 1270
  145. 1300 Rem ANIMATE CENTIPEED
  146. 1320 Bob 1,67,192,21 : Wait 10
  147. 1330 M$="Anim 0,(1,6)(2,6)(3,6)(4,6)(3,6)(2,6)"
  148. 1340 M1$="Anim 0,(5,6)(6,6)(7,6)(8,6)(9,6)(10,6)(11,6)(12,6)(13,6)(14,6)(15,6)(16,6)"
  149. 1350 M2$="Anim 0,(8,6)(9,6)(10,6)(11,6)(12,6)(13,6)(14,6)(15,6)(16,6)(5,6)(6,6)(7,6)"
  150. 1360 M3$="Anim 0,(11,6)(12,6)(13,6)(14,6)(15,6)(16,6)(5,6)(6,6)(7,6)(8,6)(9,6)(10,6)"
  151. 1370 M4$="Anim 0,(14,6)(15,6)(16,6)(5,6)(6,6)(7,6)(8,6)(9,6)(10,6)(11,6)(12,6)(13,6)"
  152. 1380 M5$="Anim 0,(18,6)(17,6)(18,6)(19,6)(20,6)(19,6)"
  153. 1390 Channel 2 To Bob 2 : Channel 3 To Bob 3 : Channel 4 To Bob 4 : Channel 5 To Bob 5 : Channel 6 To Bob 6 : Channel 7 To Bob 7
  154. 1395 Amal 2,M$ : Amal 3,M1$ : Amal 4,M2$ : Amal 5,M3$ : Amal 6,M4$ : Amal 7,M5$ : Amal On 
  155. 1400 CH=Mouse Zone
  156. 1410 If CH=5 and Mouse Key=1 Then Amal Off : Wait 10 : Goto 480
  157. 1420 Goto 1400
  158. SCRS:
  159. For X=21 To 32 : Erase X : Next X
  160. SCR=ST(CH) : For X=1 To SCR
  161. F$=OP$(CH)+Str$(X)-" "+".SCR"
  162. Open In 1,F$ : L=Lof(1) : Close 1
  163. Reserve As Work X+20,L : Bload F$,X+20
  164. Next X : SCR=21 : ENSC=ST(CH)+20
  165. Return 
  166. Z00M:
  167. Hide On : ZX1=211 : ZY1=112 : ZX2=300 : ZY2=174
  168. Zoom 1,X Mouse-132,Y Mouse-55,X Mouse+8-127,Y Mouse+8-50 To 1,ZX1,ZY1,ZX2,ZY2
  169. Return 
  170. SAVR:
  171. Hide On : F$="" : F$=OP$(POS)+Str$(SCR-20)-" "+".IFF" : DI$=Dir$
  172. Screen Hide 1 : Screen Hide 3 : Show On : G$=Fsel$("*.*",F$) : If G$="" Then Screen Show 1 : Screen Show 3 : Screen 1 : Dir$=DI$ : Return 
  173. Screen Show 3 : Wait Vbl : Save Iff F$ : Screen Show 1 : Dir$=DI$ : Return 
  174. CHECKDISK:
  175. AA$="GRAFIX1:" : BB$="GRAFIX2:"
  176. If CH<6 and Exist(AA$)=False Then DISK=1 : Goto PROM
  177. If CH>5 and Exist(BB$)=False Then DISK=2 : Goto PROM
  178. Return 
  179. PROM:
  180. If DISK=1 Then Unpack 11 To 3 : Unpack 11 To 1
  181. If DISK=2 Then Unpack 12 To 3 : Unpack 12 To 1
  182. Rem INSERT RIGHT DISK
  183. Show On : Reserve Zone 2 : Wait 20
  184. Set Zone 1,200,93 To 223,103 : Set Zone 2,191,169 To 234,180
  185. Repeat : C=Mouse Zone : Until Mouse Key=1 and C<>0
  186. If C=1 and DISK=1 Then Pop : Hide On : Dir$=AA$ : Goto 134
  187. If C=1 and DISK=2 Then Pop : Hide On : Dir$=BB$ : Goto 134
  188. If C=2 Then Pop : Hide On : Wait 10 : Goto 50